home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #3 / utv1n3s1.d64 / ps boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  1KB  |  39 lines
  1. 10 poke53280,0:poke53281,0:print"[147]
  2. 20 [153]"        sys(NULL)aper (NULL)prites
  3. 30 print"            [156]by [202]on [208]erregaux
  4. 40 [153]"     (NULL)his program will print out three"
  5. 50 [153]" sprites at a time on any standard
  6. 60 print" [195]ommodore dot-matrix printer.  [208][193][208][197][210]
  7. 70 [153]" (NULL)(NULL)(NULL)right$(NULL)val(NULL) gives you the option of print-
  8. 80 print" ing a sprite pattern in either standard";
  9. 90 print" or multicolor format.  [212]he sprites are
  10. 100 [153]" printed from the (NULL)right$len-right$right$'s bank 1
  11. 110 print" graphic memory.
  12. 130 [153]"     (NULL)hen a sprite file is loaded into
  13. 140 print" memory, it will always be loaded at
  14. 150 [153]" memory address 8192 ($2000), regard-
  15. 160 print" less of the sprite file's real load
  16. 170 [153]" address.
  17. 172 print"         [158][208]ress any key for more"
  18. 173 print"            [154][[198]8][158] for [213]p[212]ime"
  19. 174 get a$:if a$="" then 174
  20. 175 if a$="[140]" then sys (8*4096)+4
  21. 200 print"[147][156]     [212]he program is set up for a 1526
  22. 210 [153]" printer.  (NULL)hould you need to make"
  23. 220 [153]" any mods to the code, the printer"
  24. 230 [153]" routines reside in lines 330-410."
  25. 232 [153]" (NULL)he linefeed spacing is set to 0 in"
  26. 234 [153]" line 352. (NULL)ou may need to change this"
  27. 235 [153]" line in order for the program to work"
  28. 236 [153]" with your printer.  (NULL)lease refer to"
  29. 237 [153]" your printer or interface manuals for"
  30. 238 [153]" the necessary modifications."
  31. 300 [153]"  sys(NULL)ress any key to load (NULL)aper (NULL)prites"
  32. 310 [153]"            cont[asc8]sys for (NULL)p(NULL)ime"
  33. 320 [161] a$:[139] a$[178]"" [167] 320
  34. 330 [139] a$[178]"restore" [167] [158] (8[172]4096)[170]4
  35. 500 [153]"loadstopload"[199](34)"0:paper sprites"[199](34)",8":[151] 198,3:[151] 631,19
  36. 510 [153]"run:"
  37. 520 [151] 632,13:[151] 633,13
  38. 530 [151] 44,64:[151] 16[172]1024,0:[162]
  39.